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OJOGO A RAPOSA 
E OS GANSOS (2) 


Examinamos, no artigo anterior, 

os princípios que fundamentam o jogo 
A Raposa e os Gansos. Começaremos 
agora a montar o programa, 

digitando suas primeiras rotinas — 
entre elas, a que mapeia os movimentos. 
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Apresentamos aqui as rotinas de ini- 
cialização e de mapeamento dos movi- 
mentos. Além delas, você deverá digi- 
tar a rotina que oferece ao jogador mais 
uma partida. Nesse ponto, porém, a exe- 
cução do programa não resultará em na- 
da, pois ainda faltam rotinas muito im- 
portantes. Todas elas serão dadas no 
próximo artigo da série. 





UMA VISÃO GERAL 


O programa avalia as posições ocu- 
padas no tabuleiro segundo a configu- 
ração das peças. Como cada posição 
tem um valor, pode-se, ao analisar as jo- 
gadas à frente, escolher o melhor movi- 
mento pelo resultado numérico maior. 

O programa trabalha de três manei- 
ras quando está analisando jogadas. A 
mais simples (nível 1) consiste no exa- 
me de apenas uma jogada. Nos niveis 
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mais elevados, o programa examina as 
múltiplas possibilidades de jogo, utili- 
zando o algoritmo alfa-beta para eco- 
nomizar tempo. Nos niveis intermediá- 
rios, analisa todas as possibilidades 
abertas no momento, 

As rotinas situadas da linha 2010 à 
linha 3000, que são executadas apenas 
uma vez, foram colocadas no fim do 
programa. No começo estão as rotinas 
mais importantes, o que garante uma 
maior velocidade ao jogo. 


INICIALIZAÇÃO 





As rotinas apresentadas a seguir, usa- 
das para inicializar o jogo, dimensionam 
as matrizes, definem as funções e, no ca- 
so de alguns micros, estabelecem tam- 
bém o tabuleiro. 


2010 DIM G(4): DEF FN U(A)J=INT 

(A-4*INT (A/4))- DEF FN V(A)=IN 

T (A-B*INT (A/8))2=4: DEF FN Wí 

AJ=INT (A-Z2*INT (A/2)) 

2015 LET HF=0: LET HG= 

2020 DIM B(32): LET B(1)=1: FOR 
I=1 TO 31: LET B(I+1)=B(I)*2: 

NEXT IT 

2026 LET BX=B(32)*2-B(25): 

E=1E30: LET H=-1E30 

2030 LET L2=LN (2) 

2040 DIM BS(16,2, 16): DIM GS5S(Z, 

4): LET G8(1)=*º ": LET G58(2)=" 
"+CHHS 146+CHBS 147: DIM HS(2 

4): LET HS(1)=" LET H5S(2)= 


LET 





puto 


CHARS 146+CHBS 147+" DR 

2050 LET X=1: FOR As] TO 2: FOR 
B=1 TO 2: FOR C=1 TO 27 FOR De 
1 TO 2: LET BS(X,1 265 4D)+HoS To) 
+65 (BJ) +GS (A) 


2060 LET BS(X,2)=HS(AJHHS(B)+HS 


Xx=X+1: NEXT D: N 


NEXT A 


(C)+HS(D): LET 
EXT C: NEXT B: 
2070 DIM SS(8,16)7 GOSUB 6000 
2090 DIM F5S(2,4)2 LET FS()-=" 
"+CHRS 144+CHRS/1457 LET FS(2)= 
CHAS..]44+CHRS 145+" * 

2095 DEF EN C(B)=FN U(B-1)*(4-8 
*EN V(B=1))+IZ*FN V(B-L) 


T” 


10 coTo 2010 

2010 DIM G(4),B(31),M(3,31),X(3 
2020 B(D)s1:FOR K=1 TO 31:B(K)= 
B(K-1)*2:NEXT 

2026 BX=B(31)*2-B(24) :E=1E30:H= 
-1E30 

20340 L2=L06(2) :DEFFNA(F)=INT(LO 
CIF)/L2+.001) 


1» 


7 KEYQEE:GOTO 2010 
10 GOSUB 40oo:GOTO 1010 

2010 DIM G(4),B(30)eM(3,31),X(3 
1),2(31),68(4,1) 

2020 B(0)=1:FOR K=1l TO 31:B(K)= 
B(K-1)*2:NEXT 

2026 BX=B(31)*2-B(24):E=1E+30:H 
=-1E+30 

2030 L2=L0G(2): DEFFNA(F)=INT(LO 
GLFJ/L2Z+1E-03) 
2040 ÓPEN "GRP:" 
41 


ri 


10 GoTo 2010 


FOR OUTPUT AS 


2010 DTM G(4),B(31),M(3,31),X( 
31),Z(31):VS = 0HAS (7) + CHR 
Ss (1) + cHRS (1) FHCHAS (7) 
2020 B(0) = 1: FOR Kk = TT 3: 
B(K) = B(K - 1) * 2: NEXT 

2026 BX = B(31) * 2 - B(Z4áVai a 

1E30:H = - 1E30 

2030 L2 = LOG (2): DEF  ENDARE 
) = INT ( LOG (F) / LZ +00) 


A linha 2010 dimensiona a matriz Ut- 
lizada para armazenar as posições dos 
gansos. A linha 2020 numera Cada qua- 
drado do tabuleiro. 

A linha 2030 determina o número to- 
tal de configurações que o programa po- 
de avaliar. O valor 0.001 foi adiciona- 
do à definição da função À para evitar 
à beorrência de erros de arredondamen- 
to no cálculo. de logaritmos. 

No Spectrum, a matriz B$, dimensio- 


nada na linha 2040, mostra as colunas 
do tabuleiro já ocupadas pelas peças. F$ 
é usada para mostrar a peça da raposa 
e à casa em que estã, e H$, para os gan- 
Sos E suas casas. À matriz S$, determi- 
na o número dos quadrados. 

Nos demais microcomputadores, as 
figuras são definidas em alta resolução 
por uma outra rotina, 





COMEÇANDO 


Esta rotina permite a escolha das pe- 
ças com que se vai jogar e o grau de di- 
ficuldade, Comece pelo mais fácil: 


2700 LET F=2: LET G(1)=29: LET 

G(2)=30: LET G(3)=31: LET G(4)= 
32: GOSUB 2710: GOTO 1010 

2710 CLS : PRINT AT 0,8; INK 1; 
"RAPOSA E GANSOS": INPUT "VOCÊ 

QUER ...";TAB 5;"SER A RAPOSA ? 
(S/N) "413 

2720 LET PF=0: IF 18="5" OR Y3= 
"8" THEN GOTO 2760 

2730 LET PF=1: IF IS<>"N” AND T 
$<>"n” THEN GOTO 2710 

2740 INPUT "NIVEL DE HABILIDADE 
DA RAPOSA ? ";SF: IF SF<1 OR 5 
F>10 THEN GOTO 2740 

2750 LET HF=131*4(SF=5) +613*(SF= 
6)+1997*(SF>6) 


2760 INPUT "VOCÊ QUER 2..." FTAB 
E. "CONTROLAR OS GANSOS 2? (S/N) * 
IS 

2770 LET PG=0: IF 15="5" OR 1I5$= 
"g” THEN GOTO 2860 

2780 LET PG=1: IF 18<>2"N” AND 1 
S<>"n” THEN GOTO 27/60 

2790 INPUT "NIVEL DA HABILIDADE 
DOS GANSOS ".8G: IF SG<l OR 5 

G>10 THEN GOTO 2790 


2800 LET HG=191*(8G=5)+613*(50= 
6)+1997*(9G>6): IF HE<HG THEN 
LET HF=HG 
2860 INPUT 
S POSICOES 

I$="N" OR I$S="n” 
Do 


"VOCE QUER ALTERAR À 
INICIAIS 7”; IS DRE 
THEN GOTO 30 


Z8BO.IF 15<>"5" AND IS<>"a” THE 
N GOTO 2860 
2890 GOSUB 210: GOSUB 310: INPU 


T "QUER MOVER A RAPOSA ?";13 
2900 IF I8="N” OR I$="n' THEN 
GOTO 2930 

2910 IF 158<>"5”" AND 19S8>2"s" THE 
N GOTO 2890 

2920 INPUT “PARA ONDE ?";F: IF 
F<l OR F>32 THEN GOTO 2920 
2930 FOR G=1 TO 4: GOSUB 210: G 
OSUB 310 

2940 INPUT "QUER MOVER O GANSO 
DA POSICAO"; (G(G));"?7";15 

2950 IF 15="Nº OR 15-"n' THEN 
GOTO 2990 


2960 IF 15<>"5" AND 15<>"s” THE 


N GoTo 2940 

2970 INPUT “PARA ONDE 2";1: IF 

EN X(I) OR I=F THEN GOTO 2960 

2972 IF I<l OR 1>32 THEN GOTO 

2970 

2980 LET G(G)=1I 

2990 NEXT G: IF EN X(F) THEN P 

RINT “HA UM GANSO SOB A RAPOSA” 
FOR I=1 TO 1500: NEXT I: GOTO 
2910 

3000 RETURN 


2500 DIM R(1400),5(1400) 

2700 F=1:6(1)=28:6(2)=29:6(3)=3 
0:G(4)=31:GOSUB 2710:GOTO 1010 
2710 CLS:PRINT “VOCE QUER SER A 
RAPOSA (S/N) 7”; 

2720 KS=INKEYS:IF KS<>"8" AND K 
S<>"N” THEN 27/20 

2730 PRINT KS:PF=1:IF K$="5" TH 
EN PF=0:GOTO 2760 

2740 PRINT:PRINT "NIVEL DE HABI 
LIDADE DA RAPOSA (0-9) 774 
2745 KS=INKEYS:IF KS4"0” OR K32> 
"9" THEN 2745 





=== c 








2/46 SF=VAL (KS)+1:PRINT KS 

2750 HF=-]31*(SF=5)-613*(SF=6)- 
1399* (8F>6) 

2760 PRINT:PRINT "VOCÊ QUER CON 
TROLAR OS GANSOS (S/N) ?*; 
2770 KS=INKEYS:IF KS<>"5" AND K 
SC>"Nº THEN 2770 

2780 PRINT KS:PG=1:IF K3="S” TH 
EN PG=D.GOTO 2860 

2790 PRINT: PRINT"NIVEL DE HABIL 
IDADE DOS GANSOS (0-9) 7"; 
2795 KS=INKEYS:IF KS<"0” OR K3> 
"O" THEN 2795 

2706 SG=VAL (K5)+1: PRINT KS 

2800 HG=-131*(5G=5)-613*(56=6)- 
1399%(8G>6) :IF HF<HG THEN HF=HG 
2860 PRINT:'PRINT"VOCE QUER ALTE 
RAR AS POSICOES INICIAIS (S/N 
) 288 

2870 KS=INKEYS:IF KS<>"S” AND K 
SC>"N” THEN 2870 

2880 IF KS="N” THEN 3000 

2890 GOSUB 210 

2920 DRAW"BMIBO, BO" +MWS: XX=ENXX 
(1):YY=FNYY (1) :GOSUB 1810:F=4*I 
NT(YY/20):F=ENCN(F) 

2925 PUT(68,8)-(87,27),580, PSET: 
PUT (XX, YY+5)- (XX+19, YY+13), FX,P 
SET 








SERRA! 


2930 FOR G=1 TO 4:GOSUB 210 
2940 XX=PNXX(G(G)) :X1=XX:YY=ENY 
Y (G(G)): YlSWy:GOSUB 1810:PUT(X] 
Y1)- (X1819,71+199,80, PSET 

2950 1=4XINT(YY/20):T=ENCN(I) 
2960 IF (ENX(I) OR I=F) AND I<> 
G(G) coOSUB 5000:GoTo 2940 

2970 PUT(XX, YY+5) = (XX+19,YY+14) 
,GS, PSET:C(G)=T 

2990 NEXT:IF FNX(F) GOSUB 5000: 
GoTOo [2920 

2995 C=1:G=G(1) 

3000 RETURN 


us 


2500 DIM R(1100),8(1100) 

2700 F=1:6(1)=28:6(2)=29:6(3)=3 

0:6G(4)=31:GOSUB 2710:GOTO 10 
2710 CLS:PRINT"Alquém Joga com 

a raposa? (S/N) 
2720 KS5=INKEYS: IF R5€2"75" AND KR 
S<>"N” THEN 2720 

2730 PRINTKS:PF=1:IF K9$="S" THE 

N PF=0:GOTO 2760 

2740 PRINT:PRINT"Habilidade da 
raposa? (0-9) ”"; 
2745 KS=INKEYS:IF KS<"0" OR KSR 
"9" THEN 2745 

2746 SF=VAL(KS)+1L:PRINTKS 

2750 HF=-131*(8F=5)-613* (SFBBI= 
1099* (5F>6) 

2760 PRINT:PRINT"Alquém joga CoD 

m os qangsos? (8/N) "; 

2770 KS5=INKEYS:IF KS5<>"S" AND KR 
S<>"N” THEN 2770 

Z27B0 PRINTKS:PG=1:IF K5=287 THE 

N PG=0:GOTO 2860 

2790 PRINT: PRINT"Habilidade dos 
gansõbs2. (0-9) ” 

2795 KS=INKEyS:IF K5<"0” OR KS> 
"9" THEN 2795 

2796 SG=VAL(KS)+1:PRINTKS 

2800 H0=-1317[50=5)-613* (5G=-6)- 
1099* (5G>6) : IF HF<HG THEN HF=HG 
2860 PRINT: PRINT'Você quer alte 
rar as posições inicais? (5/N) 
& 

Z870 KS=INKEYS:TF KS<>"5" AND K 
S<>"N” THEN 2870 

2880 IF KS$="Nº TEEN 3000 

Z890 GOSUB Z1LO:GÓOSUBE 4000:GOSUB 
2920:G0T0 1010 

2920 PRESET (188,80) :PRINTA4L,"P 
ara PPEXX=FNARID):YY=FNYYT(IL):GO 
SUB 1810: FeaFINT((YY-2)/20):F=F 

NCN(F) 

2925 PUT BPRITE FX, (XX,Y7),6 
2930 EDR Cal TO 4:GCOSUB 210 
2940 KX=ENKXIO (GG) ) :YY=ENTT(G(G) 
) *GOSUB 1810 

2950 1I=4*INTELET=2)020): I=FNCN( 
I) 

2960 IF (ENX(T) OR I=F) AND I€> 

G(G) THEN GOSUB 5000:00T0 2940 
2970 G5(5-G,1)=1:G(G)=I:PUT SPR 
ITE G8(5-G40), (XK.TYISIS 

2990 NEXT:IF FNX(F) THEN GOSUB 
5000:GOTO 2920 

2995 C=1 465611) 

3000 RETURN 











2500 DIM BR(1500),8(1500) 

2700 F = 1: FORT = 28 TO 31:6( 
I - 27) = 1: NEXT : GOSUB 2710: 
Goto 1010 

2710 HOME : VTAB 22: PRINT "AL 
GUEM JOGA COM A RAPOSA? (S/N) " 


à | 

2720 GET K9; IF KS$ < 2 "58" AN 

D K5S < > "Nº THEN 2720 

2730 PRINT KS:PE = |: TF KS - 

"8" THEN PF = 0: GOTO 2760 

2740 PRINT "HABILIDADE DA RAPO 

SA? (0-9) "; 

2745 GET KS: IF K$ < "0" OR KS 
> "9" THEN 2745 


2746 SF = VAL (KS) + 1: PRINT 
KS5 

2750 HF = 131 * (SF = 5) + 613 
* [SP = 65) + ]499* (SF > 6) 
2760 HOME VTAB 22: PRINT "AL 
GUEM JOGA COM OS GANSOS? (5/N) 
2770 GET KS: IF KS$ << 2>2"5”" AN 
RMKS < > "Nº THEN 2770 

2780 PRINT KS:PG = 1: IF KS = 


PO” THEN PG = 0: GOTO 2860 

2790 PRINT "HABILIDADE DOS GAN 

SOS? (0-9) "; 

27OS GET KS: IF KS < "0" 
» "0" THEN 2795 

ZROB SO = VAL (KS) + 1: 

K5 

SHOnodo = 131 * (SG = 5 

WISO = 6) + 1499 * (SG 

E HE < HG THEN HF = HG 

2860 HOME VTAB 22: 

ER MUDAR AS POSICÕES 
(S/N) "; 

2670 GET K5S: IE KS S >"r5º AN 

D KS € > "mn" THEN 2870 

2880 IF kKk$ = “Nº THEN 3000 
2890 GOSUB 210 — 

2920 HOME “ VUTAR 22: PRINT "MO 

VE PARA ONDE?" :XX = FNXX(I):Y 

Y = FN YY(1)2 CGOSUB JBIQ:F = 4 
* INT (YY 4 20):2F = EN CNTE) 


OB K5 
PRINT 


5) + 613 
2 6): 1 


PRINT "QU 
INTCIAIS? 


HCOLOR= 
HCOLOR= 3: 
Lots + 8 
2930 FOR G = 


2925 O: DRAW FX AT 120 
,B: DRAW FX AT XX + 


| TO 4: GOSUB 210 
2940 :XX = FN XX(G(G)):KN = XX 
Yro= EN YY(G(G))IYN = YY: G0S 
UB 1810: HCOLOR= 0: DRAW G8 A? 
XN + Z,YN + 5 
2950 1 = 4 * 
EN CN(T) 
2960 TF ( FN.HXA4I)V OR I = F) AN 
DI < 25646) THEN GOSUB 5000: 
GoTo 2920 
2970 HCOLOR= 3: DRAW GS AT XX 
+ 7,77 + 5:0(G) = TI 
2990 NEXT : IF EN X(F) THEN 
GOSUB 5000: GOTO 2920 
2995 € = 1:G = G(1) 
3000 RETURN 
A linha 2700 determina às posições 
iniciais, com os quatro gansos ocupan- 


INT ERR EU) :T = 
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do os quatro quadrados da coluna infe- 
rior do tabuleiro, e a raposa, O Segundo 
quadrado a partir da esquerda do vídeo, 
na coluna superior, 

Em seguida, as linhas 2710 à 2750 pe- 
dem que se defina quem jogará pela ra- 
posa e que seja indicado um nível de di- 
ficuldade de 1 a 10, se for o computa- 
dor. As linhas 2760 a 2800 são seme- 
lhantes, só que tratam dos gansos,. 

O jogador pode ajustar as posições 
iniciais não só para dar continuidade a 
uma partida (será preciso tomar nota 
das posições), mas, também, para estu- 
dar e tentar ganhar o jogo de uma posi- 
ção particularmente interessante, As li- 
nhas 2860 a 3000 perguntam se o joga- 
dor quer alterar as posições de início, 
realiza todas as modificações necessárias 
e verifica se estas estão de acordo com 
as regras. 





MAPEAMENTO DAS JOGADAS 


A rotina de mapeamento de jogadas 
é uma das mais importantes do jogo: 


140 DEF EN X(B)=B=G(1) OR B=G( 
2) OR B=G(3) OR B=G(4) 
2100 DIM R$(8,16) 
2142 DEF FN Z(B)=(B=G(1))+(B=G( 
2))*42+4(B=6(3))*3+(B+C(4))*4 
2150 DIM M(4,32): DIM X(32): DI 
M Z(32) 





2160 FOR B=1 TO 32: LET U=B-1-4 
*INT (B/4-.2): FOR A=1 TO 4: LE 
T M(A,B)=(B-2)-2*U+B* ((B<5) OR 
(AD2) )+(A*7-6) * (U=3) +(A=2)+ (A=2 
)J+(A=4): NEXT A: LET X(B)=((B>4 
)J+(B<29))*((U<3)+1): LET Z(B)=( 
B>4)*((U<3)+1): NEXT B 

2180 DIM V(11): DIM A(11): DIM 
F(11): DIM P(1l)j: DIM €C(11): DI 
M R(1l): DIM S(1) 


2110 DEFFNF (B)=((B>23)+(B<28))*I 
( (3ANDB)<3)-1)-1 

2120 DEFFNG(B)=(B>3)*(((3 AND B 
)J<3)-1)-1 

2140 DEFFNX(B)=(B=G(1)0RB=G(2)0 
RB=G (3) ORB=G(4)) 

2142 DEFFNZ(B)=- (B=G(1))-(B=G(2 
))*2-(B=0(3))*3-(B=0(4))*4 

2150 DEFFNXX(B) =- ( (7ANDB) <4)*(2 
8+40* (3ANDB) ) - ((7ANDB)>3)*(128- 
40* (3ANDB)) 

2155 DEFFNYY(B)=8+20*INT(B/4) 
2156 DEFFNCN(B)=B-( (7ANDB)<4)*( 
KX-28)/40- ((7ANDB)>3)*(128-XX)/ 
ao 

2160 FOR B=0 TO 31:FOR A=0 TO 3 
:M(A,B)=B-2* (3ANDB) -2-B*[B<4 OR 
A>1l)-(1+A*7)*((3 AND B)=3)+(1 
AND A) :NEXT:X(B)=FNF (B):Z(B)=FN 
G (B) NEXT 


2110 DEFFNF(B)=((B>3)+(B<28))*( 
( (BMOD4)]<3)-1)-1 














2120 DEFFNG(B)=(B5>3)*(([ (BMOD4)< 
3)-=1)-1 

2140 DEFFNX(B)= (B=G(1)0RB=6(2)0 
RB=G(3)0RB=G(4)) 

2142 DEFENZ(B)==(B=G(1))-(B=G(2 
))*2- (B=G43))R3=[(B=G(4))*4 

2144 DEFENZZ([B)==(B=GS(1,1))-(B 
=058(2,1))*2-(8=08(3,1))*3-(B=GS 
(4,1))*4 

2150 DEFFNXX([B)=-=[(BMODB)<4)*(3 
B+40* (BMOD4))=( (BMODE)>3)*(138- 
40*(BMOD4)) 


| 2155 DEFENTYIB)=20+20*INT(B/4) 


2156 DEFENCN(B)=B-( (BMODB)<4)*( 
XX-38)/40-( (BMODB)23)*(138-XX)/ 
40 

2160 FOR B=0 TO 3):FOR A=0 TO 3 
'M(A,B)=B-2* (BMOD4A)-2-8* (B<4 OR 
A>1)-(1+A*7)*( (BMOD4)=3)+ (AMOD 
2) :NEXT:K (B)=FNF(B):Z(B) =FNG(B) 
:NEXT 


= 


a te 


2Y1O DEF EN MD(X) = x - CNT 
(XxX 4 MD) * MD): DEF FN MZEK) 

=YX- C(INTO(X/2) * 2): DEE 

EN MA(X) = X - ( INT (X / 45& 

4): DEF FEFN MB(X) =X - ( INPH 

X / B) * 8) 

2115 DEF EFN F(B) = ((B > 3) 
(B < 28)) * (( FN MA(B) < 3)7% 
1) = 1 

2120 DEF EN G(B) = (B> 3) * 

(( FN Má(B) < 3) + 1) - 1 

2140 DEF EN X(B) = - (B = G( 

1) OR B = G(2) OR B = G(3) OR B 
= G(4)) 

2142 DEF EN Z(B) = (B = G(1)) 


34 PROGRAMAÇÃO DEJOGOS 34 








+ (B= G(2)) * 2 + (8 = G(3)) 
* 3 + (B= G(4)) W4 
2150 DEF FN XKX(B) = ( FN MB(B 
) <4)*(X1l+Zl+a40* NM 
(B)) + ( FN ME(B] > 3) * (X2 - 
41 - 40 * FN Má(B)) 
2155 DEF FN YY(B) 
INT (B / 4) 
2156 DEF EN CN(B) = B + [ EN 
MB(B) < 4) * (XX = 78) Z 40 + | 
FN MB(B) > 3) * (1728 = XX) / 4 
ê 
2160 FOR B = 
O TO 3J:M(A,B) 
B) -2 +84 ( 
(L1+A* 7) * ( FN MAB) = 3) 
+ EN MZ(A): NEXT :X(B) = 
(B):Z(B) = EN G(B): NEXT 


- Tl +20 * 


31: FOR A = 


O TO 
- B = FN Má 
BN 4 


As linhas 2110 a 2160 montam o ma- 
pa-dos movimentos da raposa e dos gan- 
sos na matriz M, armazenam o número 
dos movimentos possíveis da raposa na 
matriz X e o dos gansos na matriz Z. As 
matrizes são formadas pelas funções de- 
finidas nas linhas 2110 a 2142. 

A rotina do Spectrum é mais curta 
devido à lógica interna dessa máquina. 





MAIS UMA VEZ? 


Agora, adicione esta rotina: 


1410 INPUT 
(S/N) 


"QUER JOGAR DE NOVO 


?"4 IS 





O que é Inteligência Artificial? 

| A Inteligência Artificial (IA), cujos 
conceitos são utilizados no jogo A Ra- 
posa e os Gansos, é um campo da In- 
formática que procura desenvolver mé- | 
todos computacionais para imitar o in- | 
telecto humano em várias tarefas, co- 
mo o diagnóstico de doenças, à pros- 

| pecção mineral etc. Os jogos estraté- 
gicos, como o xadrez, também têm si- 
do alvo de estudos. Aplicam-se a eles 
sobretudo duas técnicas de IA: a pro- 
gramação heurística e a otimização de 
busca, 





1420 IF 18="S" 
GOTO 2/00 

1430 IF IS<>"N” 
N GOTO 1410 
1440 STOP 


OR I$="s THEN 


AND 15<>"nº THE 


1410 PRINT 6390," QUER RECOMECAR 
(S/N) 2?” 

1420 KS=INKEY$:IF KS$="5" GOSUB 

4040:CLS:GOTO 2700 

1430 IF KS<>"Nº THEN 1420 

1440 CLS: END 


1410 LOCATE 5,20:PRINT"QUER REC 
OMEÇAR? (8/N)”. 


1420 KS=INKEYS:IF K5="S5" THEN R 
UN 

1430 TF K$<>"N” THEN 1420 

1440 CLS: END 

1410 FOR Z = 17L'Tó S000: NEXT 
TEXT HOME PRINT "JOGA OUTR 
A VEZ? (S/N) 

FABO GET KS: TF KS5 : “Or AN 
DRS CS > "Nº THEN 1420 

2490 TF KS = "S" THEN RUN 
1440 HOME END 


Essas linhas entrarão em cena quan- 
do os gansos conseguirem encurralar a 
raposa ou quando a raposa conseguir 
atingir o lado oposto do tabuleiro. 

Não tente nesta fase executar o pro- 
grama, pois ainda falta adicionar várias 
partes vitais, Com as rotinas do próxi- 
mo artigo você poderá, finalmente, co- 
meçar a jogar. 


Qi) 











COMO UTILIZAR 
UM DISQUETE 








Como vimos no artigo da página 876, 
o disco magnético é a melhor alternati- 
va para quem deseja um armazenamen- 
to mais rápido e confiável do que o pro- 
porcionado pela fita cassete. Entretan- 
to, ao contrário do que ocorre com o 
gravador de fita, pode ser complicado 
fazer funcionar a combinação compu- 
tador-disquete. Além disso, o usuário 
precisa aprender uma série de novos co- 
mandos para controlar o disco. 

Este artigo explica como conectar e 
usar os acionadores de disquetes dispo- 
níveis para os diversos tipos de micro- 
computador existentes no Brasil. As li- 
nhas cobertas no artigo são: TRS-8B0, 
TRS-Color, Apple II, TK-2000 e MSX. 
Uma breve menção é feita aos micros 
compatíveis com a linha Spectrum 
(TK-90X), que dispõe de unidades acio- 
nadoras apenas no Exterior. 

A primeira coisa que você deve fazer 
ao receber sua unidade de disquetes é 
checar se ela foi protegida para trans- 
porte. Em geral, um pedaço de cartoli- 
na do tamanho de um disquete é inseri- 
do na unidade, a fim de proteger a ca- 
beça de leitura e gravação, Retire esse 
protetor somente depois de colocar o 
acionador no local em que será utiliza- 
do, Guarde-o, porém, para que, quan- 
do se fizer necessário, possa mudar o 
computador de lugar. 


COMO CONECTAR 





Conectar a unidade acionadora de 
disquetes ao micro pode ser fácil ou 
complicado, dependendo do modelo. 


Os microcomputadores compatíveis 
com a linha TRS-Color utilizam unida- 
des acionadoras de disquetes de 5 1/4 
polegadas (minidisquetes), de face sim- 
ples e densidade dupla. Encontram-se 
no mercado gabinetes de um ou de dois 
acionadores (como os do CP-400). 

A conexão é muito simples: o cabo 
de ligação, do tipo plano, tem na ponta 
um conector que deve ser inserido na 
porta de cartuchos do micro, 

O software operacional de utilização 











já está gravado em memória ROM, na 
própria unidade de disco. Dessa manei- 
ra, torna-se instantaneamente disponi- 
vel tão logo se liga o computador, não 
sendo necessário carregá-lo de um dis- 
quete. O cabo de força da unidade acio- 
nadora deve ser ligado separadamente 
em uma tomada. 


Os microcomputadores compativeis 
com a linha TRS-80 utilizam unidades 
acionadoras de disquetes de 5 1/4 pole- 
gadas (minidisquetes), de face simples 
ou dupla e densidade dupla. É possível 
concectar até quatro unidades por mi- 
cro. Alguns modelos de computador 
comportam dois acionadores no gabine- 
te principal e mais dois em caixas sepa- 
radas. Outras marcas aceitam apenas 
unidades externas. 

Em geral, os acionadores já vêm ins- 
talados nos micros que os aceitam no ga- 
binete principal, quando se compra o 
modelo com disquetes. Se você possui 
um computador desse tipo e pretende 
adicionar um ou dois acionadores, re- 
comendamos que não o faça sozinho: 
peça auxílio ao revendedor, pois a ins- 
talação é razoavelmente complexa e re- 
quer a abertura do gabinete. 

Nos computadores em que os aciona- 
dores são ligados externamente, a cone- 
xão é muito simples: o cabo de ligação, 
do tipo plano, tem na ponta um conec- 
tor que deve ser inserido na porta de ex- 
pansão de discos do micro, Para ligar 
mais de uma unidade, deve-se utilizar 
um cabo próprio, com vários conecto- 
res intercalados (daysy chaining). Não 
são necessários cabos de força separa- 
dos para as unidades acionadoras, pois 
a alimentação ocorre por intermédio do 
cabo de conexão, 


Os microcomputadores que são com- 
patíveis com a linha Apple II utilizam 
unidades acionadoras de disquetes de 5 
1/4 polegadas (minidisquetes), de face 
simples e densidade dupla. A placa de 
controle (interface) deve ser adquirida 





O emprego de um acionador de disquetes 
em seu microcomputador pode envolver 
algumas complicações. Este artigo 
mostra como evitar erros comuns e como 
fazer o melhor uso desse periférico. 


separadamente, e podem ser conectadas 
a ela até duas unidades acionadoras. O 
número de placas de controle que cabem 
no micro depende da marca, mas, de um 
modo geral, empregam-se até três pla- 
cas. Os acionadores costumam alojar- 








+ ma 


se individualmente em caixas externas. 

A conexão não é muito simples, po- 
rém com alguns cuidados, você mesmo 
pode fazê-la. Primeiro, desligue o mi- 
cro da tomada e abra a tampa superior 
do console (UCP). Localize um conec- 
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tor interno vazio para colocar a placa de 
controle — utilizam-se, normalmente, 
os conectores 6 e/ou 5 para isso. O ca- 
bo de ligação da unidade, do tipo pla- 
no, tem na ponta um conector fêmea 
que deve ser inserido no macho corres- 
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pondente, na placa de controle. Não são 
necessários cabos de força separados pa- 
ra as unidades acionadoras, pois a ali- 
mentação ocorre por intermédio do ca- 
bo de conexão. 


fo) 


O microcomputador TK-2000 pode 
usar apenas um acionador de disquetes, 
com discos de 5 1/4 polegadas (minidis- 
quetes), de face simples e densidade du- 
pla. O acionador é ligado ao console 
através de uma interface externa. Esta 
é adquirida à parte e deve ser inserida 
na porta de expansão do equipamento. 
Desligue o micro da tomada para pro- 
ceder à conexão. 

O cabo de força da interface e do 
acionador deve ser ligado separadamen- 
te na tomada, pois a UCP não tem po- 
tência suficiente para ambos. 


a 


Os microcomputadores compatíveis 
com a linha MSX 1 utilizam unidades 
acionadoras de disquetes de 5 1/4 pole- 
gadas (minidisquetes), de face simples e 
densidade dupla, ou microdisquetes de 
3,5 polegadas, de face dupla (encontra- 
dos apenas no Exterior). Existem gabi- 
netes de um ou de dois acionadores dis- 
poniveis no mercado. 

A conexão é muito simples: o cabo 
de ligação tem a interface e um conec- 
tor na ponta. Este deve ser inserido nu- 
ma das portas de cartuchos do micro- 
computador. O software operacional de 
utilização já está gravado em memória 
ROM, na própria unidade de disco. As- 
sim, torna-se instantaneamente disponi- 
vel tão logo se liga o computador, não 
sendo necessário carregá-lo de um dis- 
quete. A unidade acionadora não requer 
cabo de força separado. 


Não existem no mercado nacional 
unidades de disquete para os micros 
compatíveis com a linha Sinclair ZX 
Spectrum. Nos Estados Unidos e na Eu-| 











ropa, podem ser adquiridos facilmente 
dois tipos de sistemas de armazenamen- 
to magnético auxiliar para esses micros: 
os acionadores de disquetes de 5 1/4 po- 
legadas, de face simples e densidade sim- 
ples (em gabinetes com até dois aciona- 
dores, e descanso para o teclado), e os 
acionadores de fitas sem fim (tape loop). 
Estes, por suas características, aproxi- 
mam-se dos disquetes em modo de ope- 
ração, e custam bem mais barato. Os 
modelos mais conhecidos são o Micro- 
drive, da própria Sinclair, eo Wafadri- 
ve. Podem ser ligados até oito aciona- 
dores em paralelo. 

Para ligar o Microdrive, é necessário 
ter também uma Interface 1 da Sincla- 
ri, ou similar, que deve ser inserida na 
porta de expansão do teclado. Para 
fazê-lo, desligue o computador. O ca- 
bo de conexão, do tipo plano, tem duas 
pontas: uma para inserção na Interface 
e outra para o Microdrive. Cada Micro- 
drive, por sua vez, tem um conector fê- 
mea que possibilita a ligação de vários 
acionadores. Não são necessários cabos 
de força separados para os acionadores, 
pois os mesmos são alimentados pelo 
computador. 


FORMATAÇÃO 





Antes de usar o disquete para arma- 
zenar informação, deve-se prepará-lo 
por meio de um procedimento de soft- 
ware, chamado de formatação ou inicia- 
lização. O programa de formatação sim- 
plesmente impõe um padrão de trilhas 
e setores no disco virgem, definindo (isto 
é, gravando certos apontadores e listas) 
o modo como a informação será arma- 
zenada no disco. 

Os disquetes são inicialmente dividi- 
dos em trilhas concêntricas, por sua vez 
“fatiadas'* em setores de igual número 
de bytes. O controlador de disquetes re- 
conhece precisamente as marcas feitas 
pelo programa formatador. Esse proce- 
dimento é chamado de setoreamento por 
programa (soft-sectoring). 

O processo de formatação varia con- 
forme a marca do computador e o sis- 
tema operacional empregado. Eis aqui 
os comandos que você pode utilizar pa- 
ra formatar um disquete: 


T 


Coloque o disquete com o sistema 
operacional na unidade acionadora nº O. 
Existem duas opções para a formatação 
de um disquete virgem nos micros des- 
ta linha: somente formatação — que 


produz um disquete sem o sistema ope- 


racional — e cópia total — que copia tu- 
do o que o disco-mestre tem, inclusive 
o sistema operacional. A operação di- 
fere conforme o número de acionado- 
res de disquetes do computador. 

Para formatar, apenas, digite: 


FORMAT 


O programa fará, então, uma série de 
perguntas. Primeiro, pedirá que você in- 
dique a unidade em que está o disque- 
te. Se você tem apenas um acionador, 
indique drive O e retire o disquete com 
o sistema operacional do mesmo, colo- 
cando o disco virgem em seu lugar. Se 
você tem dois ou mais acionadores, não 
é preciso fazer isso: basta inserir o dis- 
quete virgem em outra unidade e indi- 
car o seu número ao programa (por 
exemplo, drive 1). 

Ão executar a formatação, o progra- 
ma indicará o número da trilha que es- 
tá formatando. Ao final, retire o disque- 
te formatado da unidade. 

No caso de formatação com cópia, 
use o comando: 


BACKUP 


Entre as informações solicitadas, o 
programa pede ao usuário que indique 
se deseja reformatar o disquete, caso ele 
já esteja previamente formatado. Se a 
resposta for sim, o programa funciona- 
rá como foi explicado anteriormente e, 
depois, fará a cópia do disquete-mestre. 
Se você tem apenas um acionador, pre- 
cisará realizar várias vezes a operação 
de retirar disquete de cópia e inserir dis- 
quete-mestre. Fique atento para não tro- 
car os discos. Convém proteger o dis- 
quete-mestre colocando uma etiqueta 
adesiva sobre o orifício quadrado da 
margem do envelope. Será preciso, ain- 
da, saber a senha de acesso do disquete- 
mestre. 


Coloque o disquete virgem na unida- 


de acionadora, feche a porta da mesma 
e digite pelo teclado: 


DSKINIT 


ÉS! 

Coloque o disquete com o sistema 
operacional na unidade acionadora 1. 
Proceda à inicialização, carregando o 
sistema operacional. 

Tire o disquete do sistema e coloque 
o disquete virgem na unidade acionado- 
ra. Feche a porta da mesma e digite pe- 
lo teclado o comando NEW. Todos os 
disquetes com o sistema operacional 





precisam ter um programa em BASIC 
gravado. Este será carregado automati- 
camente toda vez que o computador for 
ligado. Escolha e digite o programa que 
desejar: ele pode conter desde uma linha 
de saudação até vários comandos que 
executem alguma tarefa especifica. Em 
seguida, digite o comando: 


INIT NOME 


NOME refere-se ao programa inicial 
de carregamento, que normalmente re- 
cebe a designação de HELLO ou ALO. 
A formatação será, então, realizada. 


o 


Coloque o disquete com o sistema 
operacional na unidade acionadora A. 
A operação de formatação varia confor- 
me o número de acionadores de disque- 
te do computador. 

Para formatar, apenas, digite: 


FORMAT A: 


se O seu computador tem apenas um 
acionador, ou: 


FORMAT B: 


se o seu computador tem dois acio- 
nadores. 

O programa dará, então, algumas in- 
formações. Se você tem apenas um acio- 
nador, indique drive A e retire o disque- 
te com o sistema operacional do mesmo, 
colocando o disco virgem em seu lugar. 
Se você tem dois ou mais acionadores, 
não é preciso fazer isso: basta Inserir O 
disquete virgem em outra unidade e in- 
dicar O seu número ao programa (por 
exemplo, drive B). 

Ao final, retire o disquete formata- 
do da unidade. 


Para a formatação de um Microdri- 
ve, use O comando: 


FORMAT "M";1;"NOME” 





NOMES DE ARQUIVOS 


Tudo o que é armazenado em disque- 
te — seja um programa, seja um con- 
junto de dados — precisa ter um nome. 
O sistema operacional de disco trata de 
forma igual dados e programas: ambos 
são chamados de arquivos. O número de 
caracteres permitidos no nome de um ar- 
quivo de disco varia segundo o modelo 
do computador. A maioria deles aceita 
nomes formados por oito caracteres, no 
máximo. Os micros da linha Apple, po- 





E | 
| À 

















rém, aceitam até trinta caracteres, e o 
Microdrive para o Spectrum, até dez. O 
Apple é, também, o único micro que 
permite a inclusão de espaços em bran- 
co e de outros caracteres especiais den- 
tro de um nome de arquivo. Pode-se 
perfeitamente chamar um arquivo de 
DADOS DE ENTRADA, por exemplo. 
Os computadores das linhas TRS-80, 
TRS-Color e MSX, ao contrário, exigem 
que o nome do arquivo não tenha espa- 
ços em branco e que comece com um ca- 
ractere alfabético. 

Nesses computadores, quando se usa 
o comando SAVE para armazenar algu- 
ma coisa em disco, a máquina automa- 
ticamente adiciona um sufixo ao nome 
que foi fornecido. Esse sufixo pode ser 
BAS, que significa que um programa em 
BASIC foi gravado, BAK, que indica 
que o arquivo é uma cópia (BAcK-up) 
de outro arquivo no mesmo disco, ou 
DAT, que identifica um arquivo de da- 
dos, distinguindo-o de um programa. 
Conforme a linguagem, outros sufixos 
podem ser utilizados, mas devem ter 
sempre um máximo de três letras. Nos 
micros das linhas TRS-80 e TRS-Color, 
são separados do nome principal por 
uma barra (PROG/BAS, por exemplo); 
nos da linha MSX por um ponto (PROG. 
BAS, por exemplo). 

Não existem sufixos nos nomes de ar- 
quivos para as linhas Apple e TK-2000. 

Os nomes de arquivos são essenciais 
para a operação de um sistema que uti- 
liza discos, pois cada um destes possui 
um catálogo, ou lista com todos os no- 
mes de arquivos gravados. Tal catálo- 
go (catalog ou directory) é atualizado 
sempre que um novo arquivo é criado, 
gravado ou apagado. Voltaremos a es- 
se assunto mais adiante. 


COMO LIGAR E DESLIGAR 
O ACIONADOR 
Ao ligar ou desligar o acionador, ve- 
rifique se não há algum disco em seu 


interior, Como os disquetes são muito 
sensíveis, um setor do catálogo inter- 
no pode se apagar quando o acionador 
for ligado ou desligado. 

Esse acidente ocorre com frequên- 
cia nos modelos cujo catálogo se situa 
nas trilhas mais externas, onde usual- 
mente a cabeça fica em repouso. Re- 
cuperar a informação contida no res- 

tante do disco será, então, impossível, 


| pois o software operacional não terá 


meios de localizá-la. 





COMO USAR O DISQUETE 





O conhecimento dos comandos de 
software é fundamental para o uso cor- 
reto de unidades de disquetes, assim co- 
mo de outros periféricos, entre os quais 
Joysticks, canetas ópticas e impressoras. 
Esses comandos podem fazer parte do 
sistema operacional, das linguagens de 
programação (como o BASIC) ou, ain- 
da, de ambos. 

Como a sintaxe e o uso dos coman- 
dos variam conforme o micro, a lingua- 
gem e o sistema operacional, trataremos 
de cada máquina separadamente. 


Os comandos utilizados pelos micros 
compatíveis com o TRS-Color para gra- 
var eler programas são o SAVE e o LOAD 
— assemelham-se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneira de usá-los também 
é bastante simples: se você quiser, por 
exemplo, gravar em disco um programa 
que está em memória, digite o comando 
SAVE “NOME”. Para carregar, digite 
LOAD “NOME”. Como o TRS-Color 
não tem sistema operacional separado do 
BASIC, trabalhar com uma unidade de 
disquetes é mais fácil. 

Para carregar um programa em BA- 


“SIC armazenado em disco, não precisa 


digitar o sufixo: basta indicar o nome 
dentro de um comando LOAD. 

Quando se liga o computador pela 
primeira vez, a opção VERIFY é acio- 
nada, ou seja, tudo o que for gravado 
em disco será automaticamente verifica- 
do pelo computador. Para desativar es- 
sa opção, digite VERIFY OFF. Para 
reativá-la, digite VERIFY ON. 

A lista dos arquivos gravados em um 
disquete será obtida com o comando: 
DIR 
que é uma abreviação de DIRectory. Es- 
se comando é muito útil, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas características etc. DIR in- 
dica ainda quantos bytes estão sobran- 
do no disquete. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Se você digi- 
tar, por exemplo: 


RENAME "VELHO" TO 


o comando substituirá o nome do arqui- 

vo chamado VELHO por NOVO, 
Para apagar arquivos do disco, utilize 

o comando KILL. Por exemplo, para 


"NOVO" 


E 
| 
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um programa chamado INUTIL, digite: 


KILL "INUTIL" 


Os comandos utilizados pelos micros 
compatíveis com o TRS-80 para gravar 
e ler programas são o SAVE co LOAD 
— assemelham-se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneira de usá-los também 
é simples: se você quiser, por exemplo, 
gravar em disco um programa que está 
em memória, digite SAVE “NOME”. 
Para carregar, digite LOAD “NOME”. 
O TRS-80 tem um sistema operacional 
separado do BASIC, mas os comandos 
de disco mais importantes também es- 
tão disponíveis na linguagem. 

Para carregar um programa em BA- 
SIC armazenado em disco, não é neces- 
sário digitar o sufixo: basta indicar o no- 
me dentro de um comando LOAD. 

" Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite: 





DIR 


que é uma abreviação de DIRectory. Es- 
se comando é muito útil, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas características etc. DIR in- 
dica ainda quantos bytes estão sobran- 
do no disquete. O comando equivalen- 
te em BASIC é o FILES, de efeito se- 
melhante, mas não igual ao do DIR. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 


RENAME "VELHO” TO "NOVO" 


e o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO. 
Para apagar arquivos do disco, utili- 
ze o comando KILL. Suponhamos que 
você queira apagar um programa cha- 
mado INUTIL. Digite, em BASIC: 


KILL "INUTIL/BAS” 

Os comandos empregados pelos mi- 
cros compatíveis com as linhas Apple e 
TK-2000 para gravar e ler programas 
são o SAVE e o LOAD. A maneira de 
usá-los é muito simples: se você quiser, 
por exemplo, gravar em disco um pro- 
grama que está em memória, digite SA- 
VE NOME. Para carregar, digite 
LOAD NOME. O Apple e o TK-2000 
não têm um sistema operacional sepa- 
rado do BASIC, sendo; fáceis de usar. 








Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite: 


CATALOG 


Esse comando é muito útil, pois mos- 
tra na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos etc. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 


RENAME VELHO, NOVO 


e o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO. 

Para apagar arquivos do disco, util- 
ze o comando DELETE. Suponhamos 
que você queira apagar um programa 
chamado INUTIL. Digite, em BASIC: 


DELETE INUTIL 


Outro comando útil é o VERIFY, 
que informa se determinado arquivo foi 
danificado ou escrito incorretamente. 
Merecem ainda menção o comando 
LOCK e o UNLOCK, que permitem 
proteger ou retirar a proteção de arqui- 
vos contra apagamento acidental. 


na 


Os comandos utilizados pelos micros 
da linha MSX para gravar e ler progra- 
mas são o SAVE e o LOAD — os mes- 
mos, portanto, que se empregam com 
fita cassete. O modo de usá-los é sim- 
ples: se você quiser, por exemplo, gra- 
var em disco um programa que está em 
memória, digite SAVE “A:NOME”, 
para registrar um arquivo chamado NO- 
ME, na unidade de disquete A. Para 
carregar um programa, digite LOAD 
“A:NOME". O MSX pode acomodar 
até dois disquetes, chamados de A e B. 

Quando quiser carregar um progra- 
ma em BASIC armazenado em disco, 
não digite o sufixo; basta indicar o 
nome dentro de um comando LOAD, 

Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite, em BASIC: 


FILES 


Esse comando é muito útil, pois mos- 
tra na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos, quais as suas características etc. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 

"A:NOVO” 


NAME "A:VELHO” AS 


e o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO 
(ambos no disquete A). 

Para apagar arquivos do disco, utili- 
ze o comando KILL. Suponhamos que 
você queira apagar um programa cha- 
mado INUTIL. Digite, em BASIC: 


KILL "A: INUTIL.BAS” 


Os comandos SAVE e LOAD utili- 
zados para a transmissão de dados en- 
tre computador e fita cassete foram mo- 
dificados para permitir a gravação de 
leitura de programas no Microdrive: 


LOAD *"m";1;“nome” 


SAVE *"m";1;"nome” 


O asterisco indica que o comando faz 
parte do BASIC armazenado na ROM 
da Interface |. O meo linformam que 
a operação se dará no Microdrive nº 1. 
Seguindo o mesmo formato, há um co- 
mando que verifica gravações depois de 
feitas (VERIFY) e outro que combina 
dois programas na memória. 

O comando CAT — abreviatura de 
CATálogo — é utilizado para exibir na 
tela a lista de arquivos armazenados em 
um cartucho de Microdrive. 

Para apagar um arquivo do Micro- 
drive, emprega-se o comando ERASE, 
que tem o mesmo formato que o SAVE 
eo LOAD, não exigindo, porém, o as- 
terisco. 
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CUIDADOS COM A UNIDADE DE DISCOS 





Ao contrário da UCP, do teclado e 
do vídeo, que são bastante resistentes e 
praticamente dispensam quaisquer repa- 
ros, as unidades de disco constituem o 
“calcanhar-de-Aquiles” dos sistemas ba- 
seados em microcomputadores. A con- 
fiabilidade de operação dessas unidades 
é muitas vezes maior do que a dos gra- 
vadores cassete, por exemplo. Porém, 
por serem dispositivos mecânicos rela- 
tivamente complexos e muito delicados, 
exigem alguns cuidados por parte do 
usuário, se ele quiser operar por muitas 
horas, sem problemas. 

Devido à sua fragilidade mecânica, as 
unidades de disquete são extremamente 
sensíveis a qualquer choque. Mesmo que 
nada se quebre depois de uma batida 
mais forte, pode ocorrer um descalibra- 
mento da cabeça. Portanto, mantenha 
a unidade em um ponto seguro da me- 





Quais são as vantagens da utiliza- 
ção de cartuchos de programas, em 
vez de fitas e discos? Posso gravar | 
meus próprios programas em um 
cartucho? 

A maior vantagem dos programas 


| em cartuchos é que eles estão imedia- 
tamente disponíveis para uso, não sen- 


do preciso carregá-los. Além disso, são 
muito mais seguros e resistentes con- 
tra a perda de programas. 

Os cartuchos (como os existentes 
para micros das linhas TRS-Color e 
MSX) são memórias ROM removíveis, 
que não podem ser alteradas de nenhu- 
ma maneira — em outras palavras, 
constituem um meio permanente de ar- 
mazenamento. Você não pode, portan- 
to, gravar seus programas neles. Mas | 
há a alternativa de gravação permanen- | 
te de programas em um tipo de memó- | 
ria chamado EPROM (Eraseable Pro- | 
grammable Read Only Memory), o que 
requer um periférico especial, o progra- 
mador de EPROM, que pode ser conec- 
tado a muitos micros. O custo da mon- 


| tagem de um sistema desse tipo é, po- 


rém, muito elevado. 


sa. Se precisar transportá-la, faça-o com 
todo cuidado e dentro da embalagem 
acolchoada original. 

importante, também, levar em con- 
ta que a cabeça da unidade de disquete 
trabalha em atrito direto contra o meio 
magnético. Qualquer poeira, ou detri- 
to, por menor que seja, que tiver aces- 
so a ela, diminuirá a vida da mesma e 
provocará defeitos. 

A temperatura ambiente deve ser 
mantida em níveis razoáveis durante a 
operação, sobretudo porque, normal- 
mente, a unidade não possui ventilação. 

Quanto aos cuidados gerais, lembre- 
se de que o cabo de conexão deve estar 
bem inserido, sem dobras e livres de ten- 
sões mecânicas. Limpe periodicamente 
os contatos dos conectores. Preste mui- 
ta atenção ao inserir o disquete, para 
não fazê-lo com a orientação errada, O 
que pode danificar irremediavelmente a 
cabeça da unidade. 

Evite usar disquetes “flippy”, pois 
soltam fragmentos. Não use produtos de 
limpeza internamente: para isso, existem 
disquetes especiais de limpeza, que de- 
vem ser rodados a cada cinquenta a cem 
horas de uso. 
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A memória ROM do TRS-B0 guarda 
recursos que, em geral, os usuários 
desconhecem. Sabendo quais são eles, 
você poderá utilizar incríveis 

truques de programação em BASIC. 


Os microcomputadores da linha 
TRS-80 são considerados tecnicamente 
obsoletos por muitas pessoas. Entretan- 
to, os usuários desse popular modelo, 
que já tiveram a oportunidade de explo- 
rar mais a fundo seus diversos recursos, 
podem testemunhar o quanto eles são 
poderosos — algumas vezes, mais até do 
que os disponíveis em certos microcom- 
putadores de tipo profissional, maiores 
e bem mais caros. 

Na série de artigos que aqui inicia- 
mos, você verá como explorar alguns 
dos recursos menos conhecidos do 
TRS-80 e de seus compatíveis nacionais 
(como o CP-300 e o CP-500, da Proló- 
gica) e internacionais. Daremos exem- 
plos de manipulação de tela, teclado, 
som e de vários aspectos do BASIC pou- 
co esclarecidos no Manual de Pro- 
gramação. 


TRUQUES DE VIDEO 





O vídeo do TRS-80 possui uma pro- 
priedade muito interessante: ele é ma- 
peado em memória. Isso significa que 
uma parte da memória RAM é dedica- 
da exclusivamente ao vídeo, e que qual- 
quer coisa nela armazenada terá, auto- 
maticamente, um efeito sobre o video, 
sobretudo se se tratar de um caractere 
visivel (ASCII ou gráfico). 

A memória de vídeo começa na lo- 
cação 15360 e ocupa 1024 bytes, ou se- 
ja, um para cada posição na tela. Há, 
portanto, uma equivalência entre o nú- 
mero indicado em um PRINT e a me- 
mória absoluta referente à posição na te- 
la, que é a soma de 15360 a esse número. 
Por exemplo, o comando 


PRINT E 125,"A"; 


colocará o código 65 (ASCIH para a letra 
A maiúscula) na locação 15360 + 125, ou 
15485. 


O O 


REDOS 
DO TRS-80 (1) | 








Como a memória de video tem uma 
correspondência byte a byte com a tela, 
podemos escrever utilizando o coman- 
do POKE. A linha 


PORE 15485,65 


tem exatamente o mesmo efeito que o 
PRINTO mostrado acima. 

Se você não quiser recorrer à tabela 
de códigos ASCII sempre que for escre- 
ver na tela com o POKE, use esta for- 
ma alternativa: 


POKE 15485,ASC("A”) 


Em alguns casos, o emprego do PO- 
KE é mais vantajoso que o do PRINTO. 
Para colocar caracteres na tela sem pro- 
vocar o movimento do cursor, por exem- 
plo, o POKE é o comando indicado. 
Além disso, em certas situações ele po- 
de ser mais rápido do que o PRINTO. 
Finalmente, o comando POKE permite 
a impressão de um caractere no canto in- 
ferior direito da tela (posição 1023), sem 
provocar o deslocamento de toda a tela 
para cima (scrolling). 

Quando se trata, porém, de imprimir 
uma cadeia de caracteres (armazenados 
em uma variável literal, por exemplo), 
o uso do POKE fica em nitida inferio- 
ridade em relação ao do PRINT. 

Para examinar o conteúdo de uma lo- 
cação da tela, utiliza-se também a fun- 
ção PEEK, o que pode ser muito útil em 
uma grande variedade de programas, 
principalmente de jogos. O programa 
abaixo, por exemplo, lê o que está es- 
crito na linha de cima da tela e, auto- 
maticamente, transforma em minúscu- 
las todas as letras. 


10 CLS 

20 INPUT "ENTRE MENSAGEM ";1S 
30 CLS: PRINT 15 

40 FOR 1=15360 TO 15423 

50 J=PEEK(I):IF J>64 AND J<91 
THEN POKE 1,J+32 

60 NEXT 1:PRINT 


O mesmo poderia ser feito tomando- 
se, um a um, os caracteres de I$, trans- 
formando-os em uma outra cadeia. Po- 
rém, o programa ficaria mais complica- 
do e menos rápido. Note que a transfor- 





EM RECURSOS OCULTOS DO TRS-80 
oi A MEMÓRIA DO VÍDEO 











o O USO DOS COMANDOS 
| PEEK e POKE 
E COMO COPIAR A TELA 





mação de tipos maiúsculos para tipos 
minúsculos é bem fácil: basta, para 1s- 
so, somar 32 ao código ASCII do carac- 
tere maiúsculo, 

Um programa de jogo pode nos for- 
necer um exemplo menos óbvio de apli- 
cação do PEEK. Suponhamos que seja 
necessário testar se uma bala de canhão 
(um caractere gráfico) colidiu com algu- 
ma parte da estrutura complexa de um 
castelo. Será bem mais conveniente uti- 
lizar um PEEK a cada posição de des- 
locamento da bala, uma vez que a fun- 
ção POINT não terá um desempenho 
satisfatório nesse caso. 





UMA CÓPIA DA TELA 


Muitos programas exigem que se fa- 
ça uma cópia rápida da tela, em algu- 
ma parte da memória que não seja a de 
vídeo. Esse procedimento é empregado, 
por exemplo, nos programas que criam 
““janelas”" de tela ou superpõem várias 
informações sobre o vídeo. Neste últi- 
mo caso, poderemos precisar de diver- 
sas cópias da tela, uma de cada ''cama- 
da” superposta de informações, para 
que se torne possível a recuperação das 
telas originais posteriormente. 

Uma maneira fácil, mas não rápida, 
de copiar uma tela consiste em usar os 
comandos POKE e PEEK dentro de um 
laço que percorre cada memória de ví- 
deo. Para isso, é necessário reservar a 
parte da memória RAM que conterá a 
cópia. A reserva é feita logo que se acio- 
na o interpretador BASIC, aparecendo 
na tela a pergunta MEM?, MEMORY 
SIZE? ou outra, conforme a versão do 
computador utilizado. 

O programa abaixo usa a memória 
RAM acima de 30000: 


100 IM=30001 

110 FOR 1=15360 TO 16384 
120 POKE IM, PEEK(I) 

130 IM=IM+1:NEXT 


Para trazer a cópia de volta para o 
vídeo, basta trocar os endereços do 
PEEK e do POKE: 


100 IM=30001 

110 FOR 1=15360 TO 16384 
120 POKE I,PEEK(IM) 

130 IM=IM+1:NEXT 
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E ALTURA DAS LETRAS 


oo. MONTAGEM DE LETRAS 
ri COM BLOCOS GRÁFICOS 






Se você quiser escrever uma manchete 
ou um título em letras garrafais, 
precisará criar tipos especiais. 

Veja aqui dois diferentes métodos para 
a obtenção de caracteres ampliados. 


O conjunto de caracteres disponiveis 
através do teclado deixa muito a dese- 
jar — o que é compreensível se consi- 
derarmos que ele foi criado de maneira 
a economizar espaço de memória. As- 
sim, quando queremos escrever com le- 
tras maiores, destacando a mensagem, 
precisamos criar nossos próprios carac- 
teres ampliados. 

Existem muitas formas de utilizar os 
recursos gráficos de seu microcomputa- 
dor para obter novos conjuntos de ca- 
racteres. A escolha de uma delas depen- 
derá do tipo de aplicação que você tem 
em vista. Para ampliações, dispomos de 
duas alternativas básicas: desenhar as le- 
tras linha por linha no modo gráfico de 
alta resolução ou montar as letras com 
blocos gráficos. 

Ambos os métodos podem ser usados 
dentro de um programa específico, des- 
tinado a escrever determinada frase — 
mas este é um caminho pouco econômi- 
co, já que cada mensagem exige uma no- 
va rotina. A melhor solução, sobretu- 
do quando pretendemos utilizar man- 
chetes com frequência, consiste em criar 
um programa que se encarregue de ge- 
rar os caracteres necessários. Uma vez 
feito isso, poderemos simplesmente in- 
formar ao computador o texto que de- 
verá ser impresso, deixando a execução 
do serviço por conta do programa. Nos- 
so trabalho se resumirá, assim, à grava- 
ção do gerador de letras e à sua coloca- 
ção nos programas que precisem de ca- 
racteres maiores no vídeo. 

Este é o primeiro de dois artigos em 
que são explicadas as diversas maneiras 
de escrever manchetes e cartazes. Aqui, 
trataremos em detalhe dos dois métodos 
já mencionados. O primeiro utiliza a ta- 
bela de padrões de caracteres existente 
na memória, aumentando seu formato. 
Como resultado, obtemos tipos seme- 
lhantes aos caracteres normais, só que 
em tamanho maior, disponíveis através 















|] 
| 


do teclado, da forma usual. Infelizmen- 
te, esse método não pode ser emprega- 
do pelos usuários do Apple e do TRS- 
Color, que não têm acesso aos padrões 
de caracteres. 

O segundo método usa blocos gráfi- 
cos da ROM para construir as letras, 
funcionando em todos os microcompu- 
tadores, menos no Apple, que não dis- 
põe de blocos gráficos da ROM. 

No próximo artigo, examinaremos 
outra maneira de criar letras, que pode 
ser adaptada a todo tipo de aplicação. 
Veremos, também, de que modo utili- 
zar os métodos explicados no aperfei- 
coamento de programas. 





AMPLIAÇÃO DOS CARACTERES 


Quando executamos o programa ela- 
borado especialmente para ampliar ca- 
racteres, o computador aguarda a entra- 
da da frase que deverá escrever. O Spec- 
trum é o MSX, em seguida, colocam na 
tela as letras ampliadas, com o dobro da 
altura original. 

Até adquirir alguma experiência e 
perceber como o programa funciona, es- 
creva palavras curtas. Se usar frases 
mais longas, elas serão divididas no fi- 
nal da linha. 

Com base nos bytes que definem os 
padrões dos caracteres, O programa cria 
os blocos gráficos que, juntos, forma- 
rão o novo caractere. Para duplicar a al- 
tura de uma letra, por exemplo, o com- 
putador substitui cada byte do caracte- 
re por dois outros, repetidos dentro do 
mesmo bloco gráfico. 


1000 INPUT "INTRODUZA UM TEXTO" 
+ LINE IS: CLS GOSUB 9000: GO 
TO 1000 
9000 LET linesz=o0: 
9010 LET y=0 
9020 FOR i=l TO LEN IS: LET col 
=col+1: IF col=32 THEN LET col 
=0: LET linesline+?2 
9030 LET tS=IS(1) 
9050 FOR x=0 TO 6 STEP 2 
9060 POKE USR "a"+x,PEEK (15616 
+ (B*(CODE t5-32))+y) 
9070 POKE USR "a"+l+x, PEEK (156 
16+(B*(CODE tS-32))+y) 
9080 LET v=v+1 
9090 NEXT x 
9100 FOR x=1l TO 7 STEP 2 
9110 POKE USB "b"+x-1,PEEK (156 
16+ (B* (CODE tS-32))+y) 
9120 POKE USB "b"+x, PEEK (15616 
+ (B* (CODE tS-32))+y) 
9130 LET vy=v+] 
= 9140 NEXT x 

E 9150 LET y=0 


LET col=-1 


E 


9160 PRINT AT line,col;CHRS 144 
“AT line+l,col;CHAS 145 

9180 NEXT à 

9200 RETURN 

A primeira linha do programa possi- 
bilita a entrada de nosso texto, 
colocando-o dentro da variável alfanu- 
mérica I$. Para controlar a posição de 
impressão do texto na tela, utilizam-se 
duas variáveis. Seus valores iniciais são 
0), para a coordenada vertical, e — 1, pa- 
ra a coordenada horizontal. Uma tercei- 
ra variável, Y, recebe o valor inicial ze- 
ro, antes que o processo de ampliação 
comece. ! 

A linha 9020 inicia um laço FOR... 
NEXT que dará um número de voltas 
igual ao comprimento de nossa frase. A 
cada volta, o valor da coordenada ho- 
rizontal (variável col) aumenta em uma 
unidade. O valor inicial de col era —] 
justamente para que a impressão do tex- 
to começasse a partir do canto esquer- 
do da linha, onde col = 0, 

Se chegar a 32 (uma posição além da 
extremidade direita da linha), o valor da 
coordenada horizontal voltará a ser O, 
para que o computador coloque as le- 
tras restantes a partir do lado esquerdo 
da tela. A coordenada vertical é, então, 
aumentada em duas unidades, tornan- 
do possível que o texto excedente seja 


escrito na linha seguinte, 

A linha 9030 coloca a letra que deve 
ser ampliada dentro da variável (S$, usan- 
do o contador do laço, i (18 contera, as- 
sim, O i-ésimo caractere do texto). Em 
seguida, o computador dá início a um 
novo laço, que coloca dois bytes repeti- 
dos dentro de um bloco gráfico, quatro 


VEZES. 





A CHAVE DO PROCESSO 


As contas feitas para calcular o nú- 
mero a ser colocado dentro do bloco 
constituem a chave de todo o processo 
de ampliação das letras. 

Analisando a linha 9060, você pode- 
rá entender os cálculos. A primeira me- 
tade é muito simples. Ela coloca um nú- 
mero (cujo cálculo é explicado adiante) 
com POKE em um endereço x posições 
além do primeiro byte do bloco gráfico 
(UDG) a. A variável x, que controla o 
laço FOR...NEXT, aumenta com um 
STEP 2, de forma que o segundo byte 
não sofre alterações quando o laço é 
executado novamente. 

A segunda metade calcula o número 
que será colocado pelo POKE. Esse nu- 
mero corresponde a um dos bytes do pa- 
drão do caractere que está sendo amplia- 

















do, obtido da tabela que fica na ROM. 
O endereço inicial da tabela é 15616. A 
fórmula entre parênteses subtrai 32 do 
código ASCII do caractere e multiplica 
o resultado por 8, para identificar a po- 
sição do primeiro byte do padrão den- 
tro da tabela, 

O código ASCII do caractere preci- 
sa ser subtraído em 32 unidades, antes 
da multiplicação por 8, devido ao mo- 
do como o Spectrum armazena os pa- 
drões dos caracteres (de fato, não ha 
nessa parte da memória oito bytes para 
cada um dos 32 primeiros caracteres). 

Depois de calcular a posição dos pa- 
drões do caractere dentro da tabela, o 
computador soma o valor obtido ao en- 
dereço inicial da tabela, 15616, e adicio- 
na o resultado a y. Lembre-se de que no 
início do programa atribuimos a y O va- 
lor zero. Essa variável será utilizada pa- 
ra indicar o byte que está sendo lido e 
colocado dentro do UDG. Quando seu 
valor é zero, o computador lê e coloca 
no UDG o primeiro byte do caractere. 

As linhas 9060 e 9070 colocam em 
duas linhas consecutivas do UDG o mes- 
mo byte obtido na tabela de padrões, 
duplicando a altura da letra. Depois, 
y é aumentado em uma unidade e O 
processo se repete para o próximo by- 
te do padrão, até que o laço FOR... 





NEXT termine — a esta altura, quatro 
pares de bytes terão sido colocados no 
UDG a. 

O Spectrum inicia, então, outro laço 
FOR...NEXT, que procede como o an- 
terior para colocar os quatro ultimos 
bytes do padrão do caractere no UDOG 
b, sempre repetindo cada byte duas ve- 
zes. O laço termina na linha 9140 e o 
programa faz y voltar a valer O, 

A linha 9160 é a responsável pela im- 
pressão dos blocos gráficos, um acima 
do outro. Ela usa as variáveis line e col 
para identificar a posição de impressão 
do caractere ampliado. No programa, O 
comando PRINT “A” foi substituído 
por CHRS$ 144 para evitar que o leitor 
se confunda — o “A” normale o “A” 
gráfico pareceriam absolutamente iguais 
na listagem. 

Finalmente, a linha 9180 conclui o la- 
co principal do programa, mandando o 
computador ampliar a letra seguinte. Ao 
completar a frase, o computador volta 
à linha 1000, que possibilita a entrada 
de um novo texto, 


Embora o Apple não nos dê acesso 
aos padrões binários que definem-o for- 


ERRA 


mato de seus caracteres, veremos como 
aplicar a técnica de ampliação utilizan- 
do os UDG criados por um programa 
do artigo da página 526. 

Na listagem que se segue, você encon- 
trará apenas as modificações necessárias 
para ampliar as letras criadas no progra- 
ma mencionado. Sem as linhas DATA 
iniciais, que se encontram listadas na- 
quele artigo, você não obterá nenhum 
resultado. Mais ainda, se tentar exe- 
cutar apenas as linhas aqui apresenta- 
das, o computador sairá fora de seu con- 
trole e as linhas digitadas acabarão se 
perdendo. 


799  HGR 

800 AS = "ESTA MENSAGEM E' UM T 

ESTE” 

BlL0O € = 7:L = 11: GOSUB 1000 

820 END 

1000 N = L * 40 + € 

1010 FOR J = 1 TO LEN (A3) 

1020 BS = MIDS (AS,J,1) 

1030 B = ASC (BS) 

1040 L = INT Q(N/ 40):C = N- 

40 * L 

1050 FOR IT =0TOGS 

1060 POKRE T+ [(L-8*(L> 7) 
- B* (L > 15)) * 128 + 40 * « 

L>7) +44 >2158) ++ 
24 * 2% 1, PEEK (E+B*TB+HI 
EP 

1065 POKE T+ (L-B*(L> TZ) 











"67 (L2258)) * 128 + 40 * ( 
Lt) 40* (L>15)+Cc+ao 
A "(ZA 1 + 1), PEEK (E + B* 

B + 1) 

1066 NEXT I:L=L+1 
1070 FORI =0TOS3 
1073 PORE T+ [(L-6*(L> 7) 

-0]H(L>iH))* 128 +40 * ( 
sr) PAO (E > 15) +:€ + 20 
24 *2*1, PEEK (E+B*B8B+T 

+ 4) 

1076 POKE T+ (L- B*[(L> 7) 

-0"(L>15))*1280*+40%*( 
Et) +40" (L>IS)+C+ IO 
24 * (28 T+ 1), PEEK (E + B* 

YE *+ 4) 

1079 NEXT I:N = N+ã1: 
1080 HCOLOR= 6 

1090 HPLOT 25,80 TO 250,80 TO 
250,105 TO 26,105 TO 26,80 
1100 RETURN 


NEXT J 


Consultando o artigo anteriormente 
citado, veremos que nosso programa 
utiliza a sub-rotina que começa na linha 
1000 para colocar os padrões das letras 
da frase contida em A$ na tela de alta 
resolução. As variáveis C e L definem 
a linha e a coluna em que faremos a im- 
pressão, sempre supondo que a tela tem 
quarenta colunas e 24 linhas. 

A linha 1000 coloca em N a posição 
da tela em que a primeira letra da frase 
será escrita. A linha 1010 inicia um la- 
ço FOR...NEXT que dará tantas voltas 
quantas forem as letras da frase que de- 
sejamos imprimir. 

A variável alfanumérica B$ contém 
a letra que está sendo escrita. A cada 
volta, um novo caractere é colocado ali, 
com o auxílio da função MIDS, e a li- 
nha e a coluna de impressão são recal- 
culadas a partir do valor de N, 

Em seguida, o programa inicia um la- 
ço FOR...NEXT que coloca na tela dois 
bytes repetidos do padrão da letra, qua- 
tro vezes. Os cálculos feitos para a re- 
petição dos bytes são a chave do proces- 
so de ampliação. 





FUNCIONAMENTO DO PROGRAMA 


Já tivemos a oportunidade de mos- 
trar aos usuários do Apple e do TK-2000 
como é caótica a organização da memó- 
ria de vídeo desses dois micros. A ordem 
de preenchimento das linhas de pixels do 
Apple é tão confusa que quem não tem 
certa familiaridade com a matemática 
dificilmente conseguirá entender as fór- 
mulas das linhas 1060 a 1076. 

Mas, no nosso caso, isso não tem tan- 
ta importância. Para compreender o 
funcionamento do programa, basta sa- 
ber que o primeiro laço coloca na tela 
a metade superior da letra ampliada e 
o segundo, a metade inferior. Um carac- 


—— E E A = 
2" 
a) 
i 
o y * 


Letras de altura dupla são ideais pura 
páginas-título de jogos ou outros programas. 


tere comum ocuparia oito linhas de ví- 
deo com seus oito bytes. Aqui, para am- 
pliar as letras, cada byte é repetido duas 
vezes, resultando nas dezesseis linhas do 
caractere ampliado. 

Assim, a linha 1060 coloca os quatro 
primeiros bytes do padrão da letra nas 
posições pares do bloco gráfico corres- 
pondente à metade superior do caracte- 
re ampliado. A linha 1065, por sua vez, 
coloca os mesmos quatro primeiros 
bytes nas posições impares daquele blo- 
co. O processo se repete nas linhas 1073 
e 1076, só que os bytes são colocados no 
bloco correspondente à metade inferior 
do caractere. 


10 FOR J=0 TO 50 STEP 2 

20 FOR X=0 TO / STEP ?Z 

30 VPOKE BASE (2) +1024+J*B+X, PEE 
K( (PEEK (4) ) + (PEEK (5) *256)+520+Y 
) 

40 VPOKE BASE(2)+1024+J*B+X+1,P 
EEK ( (PEEK (4) ) +(PEEK (5) *256)+520 
+Y) 

S0 LET Y=Y+1 

60 NEXT X 

70 FOR X=8 TO 15 STEP 2 

BO VPOKE BASE (2)+1024+J*8+X, PEE 
K ((PEEK (4) )+(PEEK (5) *256)+520+Y 
) 

90 VPOKE BASE (2)+1024+J*B+X+1,P 
EEK( (PEEK(4)) +(PEEK(5)*256)+520 
+Y) 

100 LET Y=Y+1 

LLO NEXT X 

120 NEXT q 

130 CLS 

140 PRINT"INTRODUZA A PALAVRA” 
150 INPUT Is 

160 CLS:L=0:€=0 

170 FOR I=1 TO LEN(IS) 

180 LET B=ASC(MIDS(I5S,1,1)) 

190 IFB<65 OR B>90 THEN GOTO 21 
O 

200 LOCATE C,L:PRINTCHRS (128+2* 
(B-65)) :LOCATE C,L+]: PRINTCHRS( 
129+2* (B-65)) 

210 LET €C=C+1 

220 TF €C=40 THEN LET C=0:L=L+2 





230 NEXT I 
240 GOTO 140 


O programa começa com a rotina que 
transfere os dados de definição dos ca- 
racteres da ROM para a memória de vi- 
deo (VRAM), nas linhas 10 a 120. 

A seção que vai da linha 130 à 150 
limpa a tela e pede que o usuário intro- 
duza a palavra ou mensagem a ser am- 
pliada. As linhas 160 a 240 contêm a ro- 
tina que imprime as letras no vídeo. As 
variáveis L e € registram, respectiva- 
mente, a linha e a coluna em que serão 
impressos Os novos caracteres gráficos 
que irão compor as letras. 

O laço que se inicia na linha 170 im- 
prime uma letra a cada valor de 1, sem- 
pre acrescentando 1 à variável €, para 
que as letras figuem uma ao lado da ou- 
tra. Quando a frase alcança a extremi- 
dade da tela, a linha 200 zera € e acres- 
centa 2 à variável L, a fim de que a pró- 
xima letra seja escrita na primeira colu- 
na da linha seguinte. 

A linha 180 faz a variável B assumir 
o valor do código ASCII do caractere 
a ser ampliado e a linha 190 verifica se 
as letras são maiúsculas. A linha 200 im- 
prime os dois blocos gráficos que irão 
compor a letra, ambos na mesma colu- 
na, mas um abaixo do outro. 

Para saber como se obtêm os valo- 
res colocados dentro dos parênteses 
após o comando CHRS, é preciso enten- 
der o processo de ampliação. 


O PROCESSO DE AMPLIAÇÃO 





Ao ser ligado, o MSX copia o padrão 
dos caracteres gravados na ROM na 
parte de sua memória dedicada ao video 
(VRAM). E a partir dessa tabela da 
VRAM que ele imprime as letras no vi- 
deo. Cabe ao nosso programa criar os 
blocos gráficos que irão compor as le- 
tras ampliadas e colocá-los na tabela da 
VRAM, no lugar que antes era ocupa- 
do pelos caracteres padronizados, a par- 
tir do caractere de código 128. 

Sabemos que o padrão de um carac- 
tere é formado por oito bytes. Podemos, 
portanto, obter um caractere ampliado 
repetindo duas vezes cada byte. O en- 
dereço do padrão dos caracteres na 
ROM está registrado nos bytes 4 e 5 e 
o endereço do padrão de caracteres na 
VRAM é dado por BASE(2). Somando 
o endereço aí contido a 1024, teremos 
o endereço da VRAM, que será usado 
pelo VPOKE. 

Na linha 30, a viriável J simplesmente 
incrementa a posição nessa memória. O 
PEEK examina o endereço correspon- 
dente na RAM, onde estão os padrões 
gráficos. Para a obtenção do código da 
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letra A, adiciona-se o número 


520.0 Y 


indica o byte a ser copiado. As linhas 


70 a 110 do programa fazem 


a mesma 


cópia para a parte inferior do bloco grá- 


fico de cada caractere. 





O USO DOS CARACTERES GRAFICOS 


Além de ampliar os padrões preexis- 
tentes na memória do micro, podemos 
criar nossas próprias letras. Essa alter- 
nativa é especialmente importante para 
os usuários do TRS-Color, que não per- 
mite o acesso aos padrões das letras. 
Aqui estão alguns programas que utili- 
zam caracteres gráficos do computador 
para construir letras ampliadas. 


, 10 DATA "EME)","EmMG)" 
"ERC", EMEA! 
20 DATA "LOL", "Em" 


PE e [] r1 
P 


30 DATA, “PRI”, 
*“moo*, no 

40 DATA dA cel EM 
“Gel”, Rm" 
50 DATA "pME” 
"ERDC”, "Top 
60 DATA "Ema". 
"Do s 1) | Em , EM 


"nom. 
"Eme", 
"EBRBE”, 


*mMDO RN 


70 DATA dE Em, 


ad MI Tia Dl E 
80 DATA "lmkh/”."H0O” 
1 Ur MR] UM 


90 DATA do «[ "o DME”. 


Md fim no 
100 DATA * DEDO * "DRE 
" mr: mor 
110 DATA n To 1 E 
5 *, "DO: ” 
120 DATA "lo." mao” 
"UMa" "NOL h, 
130 DATA "Eai 
" ER] "EmA! 
140 DATA "DOE. "PS, 


"Ela 


RO” 
E. ' 


"og *," nom” 

150 cdi "EOr”, "EURO". 

"Doo *,"BBE* 

160 NE *“DOD"," DOC”, 

"Em". mo” 

170 DATA Et! th ' BM! 

- me", 

180 DATA Tt Do”, "mom. 
"Ema! F.C CB 

190 DATA "DRE “ESP”, 
”* DOD *,*0DO” 

200 DATA "Ed, *"NOD”, 


"Re CURor 


210 DATA "E J0mM”, Dim; Did 


”" Dor *," pon” 

220 DATA a Te mp”. "Nom. 
"mom *.CiasmaUu 

230 DATA "DOE, "Nor 
” DO *,"ioMal” 

240 DATA "Emi" 
o =] "| a UR! Ely 

250 DATA "NON". "=mE 
260 DATA "Eml"." UF” 


“(So ”, 


270 DATA "DEDO", QRO" 

280 DATA " UDCO","EGmh 

290 POKE 23658,8B: DIM aS(27,3) 
|: DIM b$(27,3): DIM cS8(27,3): 
DIM d3(27,3) 


300 FOR j=0 TO 21 STEP 4 

310 FOR i=1 TO 4: READ as(i+3) 
: NEXT à 

320 FOR i=] TO 4: READ b$S(1+3) 
: NEXT à 

330 FOR i=-l TO 4: READ c8(i1+3) 
: NEXT à 

340 FOR i=] TO 4: READ d8(1+43) 
: NEXT à 

350 NEXT 3 

3460 FOR 1=25 TO 26: READ aS(1) 
: NEXT à 

370 FOR 1i=25 TO 26: READ bS(1) 
+ NEXT à 

380 FOR i=25 TO 26: READ cS(i) 
: NEXT à 

390 FOR 1=25 TO 26: READ dS(1) 
+ NEXT 1 

400 INPUT "Introduza palavra ím 
ax lO0letrasg)", LINE ES: IF LEN 
ts>10 THEN LET tS=tS( TO 10) 


405 IF LEN tS=0 THEN GOTO 400 
410 LET B$="": FOR 1=] TO LEN 
tS: IF CODE tS(1)<65 OR CODE £ 
8(1)>90 THEN LET tS(1)=CHRS 
91 

420 LET s$=sS+aS (CODE t5(1)-64 
3): NEXT 1 

430 PRINT ss 


440 LET s$="": FOR 1=1 TO LEN 
ts 

450 LET s$=sS$+bS (CODE t$S(1)-64 
): NEXT 1 


460 PRINT ss 


470 LET nS$="": FOR 1=1 TO LEN 


ts 
480 LET aS$=sS+cS (CODE t$S(1)-64 
): NEXT à 


490 PRINT s$ 


500 LET s$="": FOR i=1 TO LEN 
LS 

510 LET s$=sS+dS(CODE t$(1)-64 
)j: NEXT à 

520 PRINT s5 

530 PRINT : GOTO 400 


E 


10 SCREEN O 
20 DIM A(78),B(78),C(78),D(/78) 


30 FOR I=1 TO 78:READ SS:A(I)=V 


AL("&HT+55) :NEXT 


40 FOR I=1 TO 78:READ 55:B(I)J=V 


AL ("RH"+55) : NEXT 


50 FOR I=1 TO 78:READ S5:C(I)=V 


AL(CRH'+55) NEXT 


60 FOR 1I=1l TO 78:READ 55:D(I)=V 


AL ("&AH"+SS) :NEXT 


70 PRINT"introduza até 9 letras 


80 INPUT TS:IF LEN (T5)>9 OR LE 


N (T5)=0 THEN 80 

90 FOR X=1 TO 4 

100 FOR Y=1 TO LEN(T3) 
110 AS=MIDS(TS,Y,1) 
120 A=ASC(AS) 


COMO USAR A IMPRESSORA PARA 
CONFECCIONAR CARTAZES | 
E FAIXAS 


Os programas elaborados para de- | 
senhar letras grandes na tela do micro- 
computador têm uma utilidade adicio- 
nal: a impressão de grandes cartazes 
e faixas. 

Como sabemos, as letras normais, 
obtidas em uma impressora comum pa- 
ra microcomputador, são muito peque- 
nas para serem vistas a distância. Pre- 
cisamos, assim, lançar mão de méto- 
dos semelhantes aos apresentados 
neste artigo para imprimir letras de ta- 
manho maior. 

A escolha da melhor solução depen- 
derá, evidentemente, do tipo de im- 
pressora que você possui. 

O tipo mais simples é aquele capaz 
de imprimir apenas texto, não dispon- 
do de blocos gráficos. Nesse caso, pro- 
gramas que trabalham com blocos grá- 
ficos da ROM, como os destinados ao 
Spectrum, não podem ser utilizados di- 
retamente com a impressora, pois ela 


| não os copiará. 


Uma boa alternativa será modificar | 
os programas, de modo a compor le- 
tras grandes a partir dos caracteres dis- 
poníveis na impressora. Experimente, 
por exemplo, o recurso muito comum | 
de usar repetições do próprio caracte- 
re, como mostramos, abaixo, com a le- 
tra | maiúscula: 


[IIITI 
[1 
II 
II 
0! 
ip 
As linhas DATA, que contêm os có- 
digos dos blocos gráficos, podem ser 
alteradas para descrever a disposição 
dos caracteres usados na composição. 
Outra providência necessária é mudar 


os comandos PRINT (que colocam o re- 
sultado apenas na tela) para o equiva- | 


| lente ao comando de impressão exis- 


tente em seu computador: LPRINT (nos 
micros TRS-BO, Sinclair e MSX), PR&7 | 
(no Apple) e PRINT & 1 (no TRS-Color). 
Se sua impressora tiver capacidade 
gráfica, o trabalho será ainda mais fácil. 
Usando um comando específico, como 
o COPY, nos micros da linha Sinclair, ou 


| um programa de descarregamento de te- 


la, você poderá transferir para o papel o 
cartaz desenhado na tela do computador 


com os programas qu an 





127 IF A<65 OR A>90 THEN CLS:GO 


To 70 


129 LET A=A-64 
130 B=(A-1)*3 
140 ON X GOSUB 190,200,210,220 


150 NEXT Y 
160 PRINT 

170 NEXT X 
180 GOTO 70 


190 FOR R=B+] 


A(R));:NEXT 


K: 


200 FOR R=B+1 


B(BR));:NEXT 


BR: 


210 FOR R=B+1 


C(R));:NEXT 


BR: 


220 FOR R=B+1 


D(R));:NEXT 


BR: 


TO B+3: PRINTCHRS ( 
PRINT” ";:RETURN 
TO B+3: PRINTCHAS( 
PRINT” ";:RETURN 
TO B+3: PRINTCHRS ( 
PRINT” .";:RETURN 
TO B+3: PRINTCHRS ( 
PRINT” ";: RETURN 


230 DATA C7,DF,D6,DB,DF,D6 
240 DATA C7,DF,D6,DB,DF,D6 
250 DATA DB,DF,D3,DB,DF,D3 
260 DATA DB,DF,DD,DB,20,DD 


Effa pepio 


ET 


EM E EA 


DS,DB,D3,D5,DB,D3 
DB,20,DD,DB,20,20 
DB,DE,DD,DB,20,DD 
C7,DF,D6,DB,DF,D6 
C7,DF,D6,DB,DF,D6 
C7,DF,D6,DF,DB,D3 
DB,20,DD,DD,20,DD 
DD,20,DD,DD,20,DD 
DD,20,DD,DF,DF,D6 
DD,20,DD,DB,DC,D3 
DD,20,20,DB,20,DD 
DB,DC,20,DB,DC,20 
DB,20,20,DB,DC,DD 
20,DB,20,20,DB,20 
DB,C7,20,DB,20,20 
DD, DD, DD, DD, DD, DD 
DD,20,DD,DB,20,DD 
DD,20,DD,DB,20,DD 
C1,DC,20,20,DB,20 
DB,20,DD,DD,20,DD 
DD,D6,DD,D5,C7,20 


fd E 
" 
] 
[o 
t 
jogo a - 
RE: 
= 
É de 
—- 
= 


ERES 


1111 
ssa 


dd 


ECT 
LA 


PELIT FREE TR] la Es FERE E 
CFLITIFIE: J— E eo do pe los ha Do 
[Id 


er SR sai ê E de SP OINEi: 
À MES | | 


C1,D4,D3,20,C7,20 
C7,DF,D6,DB,20,DD 
DD, 20,20,DB,20,DD 
DB, 20,20,DB,20,20 
DB,D5,DD,DB,20,DD 
20,DB, 20,D6,DB, 20 
DB,C1,20,DB,20,20 
DD, 20,DD, DD, DD, DD 
DD, 20,DD,DB,DF,Z0 
DD, D6, DD, DB,DF,D6 
20,20,DD,20,DB, 20 
DB, 20,DD,DE,DE, 20 
DD,DD,DD,D4,C1,2Z0 


à 20,DD,20,D4,D3,20 


DD, 20,DD,DB,DC,D3 
C1,DC,D3,DB,DC,D3 
DB,DC,D6,DB,20,20 


à DB,DC,DD,DB,20,DD 


D4,DB,D6,C1,DB, 20 
DB, 20,DD,DB,DC,DD 
DD, 20,DD,DD,DE,DD 














690 DATA Cl,DC,D3,DB,20,20 
700 DATA Cl,C7,D6,DB,20,DD 
710 DATA C1l,DC,D3,20,DB,20 
720 DATA DB,DC,DD,20,DD, 20 
730 DATA Cl,C1,D3,DD,20,DD 
740 DATA 20,DD,20,C1,DC,D6 


ee Rama 


10 DIM L(2,3,25) 

20 FOR J=0 TO 25:FOR K=0 TO 3:F 
OR L=0 TO 2:READ L(L,K,J) :NEXT 
L.K,dJ 

30 cLSO 

40 PRINT 8480," INTRODUZA A PALA 
VRA -"; BS; 
50 AS=INKEYS:IF(AS<"A” OR AS>*Z 
"AND AS<>CHRS (8) AND AS<>2CHRS( 
13) AND AS<>”" " THEN 50 

60 IF AS=CHAS (13) THEN 110 


| | 
| | 
| 
| 
| | À | 


70 IF AS=CHR$S (8) AND B$="" THEN 
50 

80 IF AS=CHRS(8) THEN BS=LEFTS( 
BS,LEN(B$S)-1):GOTO 30 

90 IF LEN(B$)>9 THEN 50 

100 B$=BS+AS:GOTO 30 

110 IF B$="*" THEN CLS: END 

120 CLS0:PRINT 6480,"COR (1-B) 
73 

130 AS=INKEYS:IF AS<"1” OR AS>" 
5” THEN 130 

140 CLSO:CL=VAL (AS) 

150 FOR Y=0 TO 3:FOR C=1 TO LEN 
(B$) :FOR X=0 TO 2 

160 IF MIDS(BS,C,1)=”" ”* THEN PR 
INT CHR$(128);:GOTO 180 

170 PRINT CHARS (B4A+CL*IL6+L(X,T,A 
SC (MID$S (B$,C,1))-65)); 

180 NEKT X,C:PRINT STRINGS (3Z2-P 
08(0),128);:NEXT Y 

190 B$="":GOTO 40 





1000 DATA 42,40,38,38,28,38,42, 
40,38,38,28,38,42,40,30,39,31,3 
6,38,28,38,39,31,36 
1010 DATA 42,40,38,38,28,28,936, 
28,28,39,31,38,42,40,30,38,28,3 
8,38,28,38,39,31,36 
1020 DATA 42,40,36,39,31,30,38, 
28,28,39,31,30,42,40,36,38,28,2 
8,42,40,36,98,28,28 
1030 DATA 42,40,38,38,28,28,38, 
29,30,39,31,38,38,28,38,39,31,3 
8,38,28,38,38,28,38 
1040 DATA 40,42,36,28,38,28,28, 
38,28,31,39,30,28,41,36,28,33,2 
8,28,33,28,39,35,28 
1050 DATA 38,29,36,39,36,28,42, 
30,28,38,32,30,38,28,28,38,28,2 
8,38,28,28,39,31,30 
1060 DATA 39,29,938,38,38,38,368, 
28,38,38,28,38,39,28,38,42,30,3 
8,38,37,38,38,32,38 











Letras maiúsculas no TRS-Color... 


1070 DATA 42,40,38,38,28,38,38, 
28,38,39,31,38,42,40,38,398,28,3 
8,42,40,36,38,28,28 
1080 DATA 42,40,38,38,28,38,38, 
30,38,39,35,38,42,40,38,38,28,3 
B,42,41,36,38,28,398 
1090 DATA 42,40,38,39,31,30,28, 
28,38,39,31,38,40,42,36,28,38,2 
8,28,38,28,28,38B,28 
1100 DATA 38,28,98,)8,28,38,38, 
28,38,39,31,38,38,28,98,38,28,3 
8,38,28,38,32,34,28 
1110 DATA 38,28,38,38,28,38,38, 
38,38,39,99,38,9398,28,38,32,34,2 
8,29,37,28,38,28,38 
1120 DATA 38,28,28,39,31,38,28, 
38,28,28,38,28,40,40,38,28,29,3 
6,29,36,28,39,31,30 

Os programas apresentados funcio- 
nam de maneira bem parecida. Eles co- 
meçam dimensionando as matrizes que 
Irão conter os caracteres gráficos da 
ROM necessários à formação das diver- 
sas letras. O Spectrum emprega o co- 
mando POKE para travar as letras 
maiúsculas. O Spectrum e o MSX usam 
quatro matrizes, uma para cada linha 
das letras. Os demais trabalham só com 
uma matriz. 

Ao ser rodado, o programa demora 
um pouco para funcionar, devido à lei- 
tura das linhas DATA pelo comando 
READ. No Spectrum, essa tarefa é fei- 
ta pelas linhas 290 a 390 do programa; 
no MSX, pelas linhas 30 a 60; nos de- 
mais computadores, só pela linha 20. 

Em seguida, inicia-se a rotina prin- 
cipal, que possibilita ao usuário escre- 
ver uma palavra. Esta deve ter, no má- 
ximo, dez letras. 

Depois de verificar se a cadeia de ca- 
racteres digitada é válida, o programa 
começa um laço FOR...NEXT que im- 
prime uma das letras a cada volta. Esse 
laço é igual ao do último programa deste 
artigo, e só termina quando a última le- 
tra tiver sido impressa. 


O Spectrum usa quatro laços 
FOR...NEXT, um para cada linha das 
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letras, já que elas têm quatro caracteres 
de altura. O primeiro laço adiciona um 
grupo de três caracteres a s$, para cada 
uma das letras da frase. Quando não há 
mais letras, o computador imprime s$. 
O grupo de caracteres adicionado a sS 
varia conforme a linha impressa. Como 
podemos observar nas linhas 420, 450, 
480 e 510, adiciona-se primeiro o cor- 
dão a$, depois o b$, o c$, e, finalmen- 
te, o d$. Cada um desses cordões é, de 
fato, uma matriz. Os números entre pa- 
rênteses determinam qual elemento se- 
rá adicionado a s$. 





Assim que digitamos o texto e tecla- 
mos ENTER, o computador salta para 
a linha 110, que nos permite escolher a 
cor em que o texto será impresso. As li- 
nhas 130 e 140 se encarregam de acer- 
tar as cores e o programa prossegue com 
três laços FOR...NEXT. 

A linha 160 imprime um bloco negro 
sempre que o caractere do texto for um 
espaço. Depois, o computador pula a li- 
nha 170, indo direto à 180. 

A linha 170, embora pareça extrema- 
mente complicada, apenas imprime o 
próximo caractere gráfico da letra que 
está sendo desenhada. Os cálculos entre 
parênteses fornecem o código do carac- 
tere adequado. A primeira operação con- 
siste na soma do número 84 ao código da 
cor multiplicado por 16. Segue-se a adi- 
ção do resultado ao número apropriado 
da matriz. I(X,Y,ASC(MID$(B$,C,1)) 
— 65) determina qual elemento da ma- 
triz L será usado nos cálculos. 

Os números das linhas DATA — co- 
locados depois na matriz L — corres- 
pondem aos códigos dos diversos carac- 
teres gráficos (básicos, pretos e verdes) 
menos 100. Eles são distribuídos em gru- 
pos de doze (quatro linhas de três carac- 
teres) para cada letra, de modo que o 
13º número da lista corresponde à letra 
B,o 25º, ao primeiro caractere da letra 
C e assim por diante. 






Quando o computador identifica o 
elemento da matriz que deve imprimir, 
a linha 170 usa a função ASC para cal- 
cular seu código e a função MIDS para 
saber de qual letra da frase se trata. Os 
três números entre parênteses do MID$ 
definem o cordão que será cortado 
(B$,em nosso caso), seu comprimento 
(C, em nosso caso) e o número de ca- 
racteres que se deve obter a partir deste 
ponto (1, em nosso caso). 

O ponto e virgula após a fórmula da 
linha 170 evita o salto de linha, fazen- 
do com que as letras ampliadas sejam 
escritas uma ao lado da outra. 

Na linha 180, duas instruções NEXT 
chamam os valores seguintes de X (que 
controla a impressão do caractere ade- 
quado da linha da letra) e de E. 

A segunda parte da linha 180 impri- 
me um número de blocos negros sufi- 
ciente para que o computador passe à 
próxima linha e comece a montar a ca- 
deia seguinte de caracteres gráficos — 
são quatro cadeias ao todo. Ao se com- 
pletar o último laço, sua frase estará es- 
crita na tela, na cor escolhida e em ta- 
manho ampliado. 

A linha 190 aguarda que outra tecla 
seja pressionada, para que o computa- 
dor volte à linha 40 e permita a entrada 
de uma nova palavra. 

Quando você quiser interromper o 
programa, voltando ao BASIC, basta- 
rá entrar uma frase “vazia” — ou seja, 
apertar ENTER antes de digitar qual- 
quer letra — ou pressionar BREAK. 


nd 

A introdução da palavra (com, no 
máximo, nove letras) é feita nas linhas 
70 e 80. O laço que vai da linha 90 à 170 
“desmonta” essa palavra, letra por le- 
tra, e desenha na tela cada uma das qua- 
tro camadas que formam um caractere, 
chamando as rotinas das linhas 190 a 
220 através de um ON x GOSUB (li- 
nha 140). O código que será usado, cal- 
culado a partir do código ASCII do ca- 
ractere, na linha 130 do programa, é ar- 
mazenado em B. 

As linhas 230 a 740 contêm os códi- 
gos gráficos que compõem as quatro ca- 
madas de cada caractere. 


—1 Tl ii 

Os programas deste artigo mostraram 
duas maneiras de criar letras ampliadas. 
No próximo artigo, você verá como ob- 
ter outro tipo de caractere e, também, 
como utilizar todos esses métodos em 
seus próprios programas. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





HIEENENO PRÓXIMO NUMERO! 


PROGRAMAÇÃO BASIC 
Velocidade de execução em programas BAISC. Cronometragem dos 
comandos. Relação entre estrutura, memória e velocidade. 


PERIFÉRICOS 
Como funciona uma caneta óptica. Sensibilidade. Resolução 
alta e baixa. Problemias de compatibilidade. 
PROGRAMAÇÃO BASIC 
Adaptação da escala dos caracteres para qualquer altura 
e largura. Como desenhar seu próprio tipo de letra. 
APLICAÇÕES 


Um assistente para o DOS. Como funciona 
o programa. Limitações. 





